perm filename TEST.F4[M11,LCS]2 blob sn#406229 filedate 1978-12-28 generic text, type T, neo UTF8
00100		DIMENSION INP(80)
00200	889	FORMAT(2F)
00300	2	FORMAT(2F,2I)
00400	890	FORMAT(' TYPE'/)
00500	5	TYPE 890
00600		K=0
00700		ACCEPT 2,A,B,J,L
00800	3	X=RAN(X)
00900		X=A+(B-A)*X
01000	1	IF(L.NE.0)PRINT 889,X
01100		TYPE 889,X
01200		K=K+1
01300		IF(K.NE.J)GO TO 3
01400		GO TO 5
01500		END